
table_CCREM_Full <- list()

table_CCREM_Full[[1]] <- htmlreg(list(model_CCREM_Fullcountry$fitCountry[[1]],model_CCREM_Fullcountry$fitCountry[[2]],model_CCREM_Fullcountry$fitCountry[[3]],model_CCREM_Fullcountry$fitCountry[[4]],model_CCREM_Fullcountry$fitCountry[[5]],model_CCREM_Fullcountry$fitCountry[[6]],model_CCREM_Fullcountry$fitCountry[[7]],model_CCREM_Fullcountry$fitCountry[[8]],model_CCREM_Fullcountry$fitCountry[[9]],model_CCREM_Fullcountry$fitCountry[[10]],model_CCREM_Fullcountry$fitCountry[[11]],model_CCREM_Fullcountry$fitCountry[[12]], model_CCREM_Fullcountry$fitCountry[[13]], model_CCREM_Fullcountry$fitCountry[[14]], model_CCREM_Fullcountry$fitCountry[[15]], model_CCREM_Fullcountry$fitCountry[[16]], model_CCREM_Fullcountry$fitCountry[[17]], model_CCREM_Fullcountry$fitCountry[[18]], model_CCREM_Fullcountry$fitCountry[[19]], model_CCREM_Fullcountry$fitCountry[[20]], model_CCREM_Fullcountry$fitCountry[[21]], model_CCREM_Fullcountry$fitCountry[[22]], model_CCREM_Fullcountry$fitCountry[[23]], model_CCREM_Fullcountry$fitCountry[[24]]), 
                                 custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(1:24)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full[[2]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[25]],model_CCREM_Fullcountry$fitCountry[[26]],model_CCREM_Fullcountry$fitCountry[[27]],model_CCREM_Fullcountry$fitCountry[[28]],model_CCREM_Fullcountry$fitCountry[[29]],model_CCREM_Fullcountry$fitCountry[[30]],model_CCREM_Fullcountry$fitCountry[[31]],model_CCREM_Fullcountry$fitCountry[[32]],model_CCREM_Fullcountry$fitCountry[[33]],model_CCREM_Fullcountry$fitCountry[[34]],model_CCREM_Fullcountry$fitCountry[[35]],model_CCREM_Fullcountry$fitCountry[[36]], model_CCREM_Fullcountry$fitCountry[[37]], model_CCREM_Fullcountry$fitCountry[[38]], model_CCREM_Fullcountry$fitCountry[[39]], model_CCREM_Fullcountry$fitCountry[[40]], model_CCREM_Fullcountry$fitCountry[[17]], model_CCREM_Fullcountry$fitCountry[[42]], model_CCREM_Fullcountry$fitCountry[[19]], model_CCREM_Fullcountry$fitCountry[[44]], model_CCREM_Fullcountry$fitCountry[[21]], model_CCREM_Fullcountry$fitCountry[[46]], model_CCREM_Fullcountry$fitCountry[[23]], model_CCREM_Fullcountry$fitCountry[[48]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(25:48)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full[[3]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[49]],model_CCREM_Fullcountry$fitCountry[[50]],model_CCREM_Fullcountry$fitCountry[[51]],model_CCREM_Fullcountry$fitCountry[[52]],model_CCREM_Fullcountry$fitCountry[[53]],model_CCREM_Fullcountry$fitCountry[[54]],model_CCREM_Fullcountry$fitCountry[[55]],model_CCREM_Fullcountry$fitCountry[[56]],model_CCREM_Fullcountry$fitCountry[[57]],model_CCREM_Fullcountry$fitCountry[[58]],model_CCREM_Fullcountry$fitCountry[[59]],model_CCREM_Fullcountry$fitCountry[[60]], model_CCREM_Fullcountry$fitCountry[[61]], model_CCREM_Fullcountry$fitCountry[[62]], model_CCREM_Fullcountry$fitCountry[[63]], model_CCREM_Fullcountry$fitCountry[[64]], model_CCREM_Fullcountry$fitCountry[[65]], model_CCREM_Fullcountry$fitCountry[[66]], model_CCREM_Fullcountry$fitCountry[[67]], model_CCREM_Fullcountry$fitCountry[[68]], model_CCREM_Fullcountry$fitCountry[[69]], model_CCREM_Fullcountry$fitCountry[[70]], model_CCREM_Fullcountry$fitCountry[[71]], model_CCREM_Fullcountry$fitCountry[[72]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(49:72)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full[[4]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[73]],model_CCREM_Fullcountry$fitCountry[[74]],model_CCREM_Fullcountry$fitCountry[[75]],model_CCREM_Fullcountry$fitCountry[[76]],model_CCREM_Fullcountry$fitCountry[[77]],model_CCREM_Fullcountry$fitCountry[[78]],model_CCREM_Fullcountry$fitCountry[[79]],model_CCREM_Fullcountry$fitCountry[[80]],model_CCREM_Fullcountry$fitCountry[[81]],model_CCREM_Fullcountry$fitCountry[[82]],model_CCREM_Fullcountry$fitCountry[[83]],model_CCREM_Fullcountry$fitCountry[[84]], model_CCREM_Fullcountry$fitCountry[[85]], model_CCREM_Fullcountry$fitCountry[[86]], model_CCREM_Fullcountry$fitCountry[[87]], model_CCREM_Fullcountry$fitCountry[[88]], model_CCREM_Fullcountry$fitCountry[[89]], model_CCREM_Fullcountry$fitCountry[[90]], model_CCREM_Fullcountry$fitCountry[[91]], model_CCREM_Fullcountry$fitCountry[[92]], model_CCREM_Fullcountry$fitCountry[[93]], model_CCREM_Fullcountry$fitCountry[[94]], model_CCREM_Fullcountry$fitCountry[[95]], model_CCREM_Fullcountry$fitCountry[[96]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(73:96)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full[[5]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[97]],model_CCREM_Fullcountry$fitCountry[[98]],model_CCREM_Fullcountry$fitCountry[[99]],model_CCREM_Fullcountry$fitCountry[[100]],model_CCREM_Fullcountry$fitCountry[[101]],model_CCREM_Fullcountry$fitCountry[[102]],model_CCREM_Fullcountry$fitCountry[[103]],model_CCREM_Fullcountry$fitCountry[[104]],model_CCREM_Fullcountry$fitCountry[[105]],model_CCREM_Fullcountry$fitCountry[[106]],model_CCREM_Fullcountry$fitCountry[[107]],model_CCREM_Fullcountry$fitCountry[[108]], model_CCREM_Fullcountry$fitCountry[[109]], model_CCREM_Fullcountry$fitCountry[[110]], model_CCREM_Fullcountry$fitCountry[[111]], model_CCREM_Fullcountry$fitCountry[[112]], model_CCREM_Fullcountry$fitCountry[[113]], model_CCREM_Fullcountry$fitCountry[[114]], model_CCREM_Fullcountry$fitCountry[[115]], model_CCREM_Fullcountry$fitCountry[[116]], model_CCREM_Fullcountry$fitCountry[[117]], model_CCREM_Fullcountry$fitCountry[[118]], model_CCREM_Fullcountry$fitCountry[[119]], model_CCREM_Fullcountry$fitCountry[[120]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(97:120)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full[[6]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[121]],model_CCREM_Fullcountry$fitCountry[[122]],model_CCREM_Fullcountry$fitCountry[[123]],model_CCREM_Fullcountry$fitCountry[[124]],model_CCREM_Fullcountry$fitCountry[[125]],model_CCREM_Fullcountry$fitCountry[[126]],model_CCREM_Fullcountry$fitCountry[[127]],model_CCREM_Fullcountry$fitCountry[[128]],model_CCREM_Fullcountry$fitCountry[[129]],model_CCREM_Fullcountry$fitCountry[[130]],model_CCREM_Fullcountry$fitCountry[[131]],model_CCREM_Fullcountry$fitCountry[[132]], model_CCREM_Fullcountry$fitCountry[[133]], model_CCREM_Fullcountry$fitCountry[[134]], model_CCREM_Fullcountry$fitCountry[[135]], model_CCREM_Fullcountry$fitCountry[[136]], model_CCREM_Fullcountry$fitCountry[[137]], model_CCREM_Fullcountry$fitCountry[[138]], model_CCREM_Fullcountry$fitCountry[[139]], model_CCREM_Fullcountry$fitCountry[[140]], model_CCREM_Fullcountry$fitCountry[[141]], model_CCREM_Fullcountry$fitCountry[[142]], model_CCREM_Fullcountry$fitCountry[[143]], model_CCREM_Fullcountry$fitCountry[[144]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(121:144)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")

table_CCREM_Full[[7]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[145]],model_CCREM_Fullcountry$fitCountry[[146]],model_CCREM_Fullcountry$fitCountry[[147]],model_CCREM_Fullcountry$fitCountry[[148]],model_CCREM_Fullcountry$fitCountry[[149]],model_CCREM_Fullcountry$fitCountry[[150]],model_CCREM_Fullcountry$fitCountry[[151]],model_CCREM_Fullcountry$fitCountry[[152]],model_CCREM_Fullcountry$fitCountry[[153]],model_CCREM_Fullcountry$fitCountry[[154]],model_CCREM_Fullcountry$fitCountry[[155]],model_CCREM_Fullcountry$fitCountry[[156]], model_CCREM_Fullcountry$fitCountry[[157]], model_CCREM_Fullcountry$fitCountry[[158]], model_CCREM_Fullcountry$fitCountry[[159]], model_CCREM_Fullcountry$fitCountry[[160]], model_CCREM_Fullcountry$fitCountry[[161]], model_CCREM_Fullcountry$fitCountry[[162]], model_CCREM_Fullcountry$fitCountry[[163]], model_CCREM_Fullcountry$fitCountry[[164]], model_CCREM_Fullcountry$fitCountry[[165]], model_CCREM_Fullcountry$fitCountry[[166]], model_CCREM_Fullcountry$fitCountry[[167]], model_CCREM_Fullcountry$fitCountry[[168]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(145:168)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


table_CCREM_Full[[8]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[169]],model_CCREM_Fullcountry$fitCountry[[170]],model_CCREM_Fullcountry$fitCountry[[171]],model_CCREM_Fullcountry$fitCountry[[172]],model_CCREM_Fullcountry$fitCountry[[173]],model_CCREM_Fullcountry$fitCountry[[174]],model_CCREM_Fullcountry$fitCountry[[175]],model_CCREM_Fullcountry$fitCountry[[176]],model_CCREM_Fullcountry$fitCountry[[177]],model_CCREM_Fullcountry$fitCountry[[178]],model_CCREM_Fullcountry$fitCountry[[179]],model_CCREM_Fullcountry$fitCountry[[180]], model_CCREM_Fullcountry$fitCountry[[181]], model_CCREM_Fullcountry$fitCountry[[182]], model_CCREM_Fullcountry$fitCountry[[183]], model_CCREM_Fullcountry$fitCountry[[184]], model_CCREM_Fullcountry$fitCountry[[185]], model_CCREM_Fullcountry$fitCountry[[186]], model_CCREM_Fullcountry$fitCountry[[187]], model_CCREM_Fullcountry$fitCountry[[188]], model_CCREM_Fullcountry$fitCountry[[189]], model_CCREM_Fullcountry$fitCountry[[190]], model_CCREM_Fullcountry$fitCountry[[191]], model_CCREM_Fullcountry$fitCountry[[192]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(169:192)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


table_CCREM_Full[[9]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[193]],model_CCREM_Fullcountry$fitCountry[[194]],model_CCREM_Fullcountry$fitCountry[[195]],model_CCREM_Fullcountry$fitCountry[[196]],model_CCREM_Fullcountry$fitCountry[[197]],model_CCREM_Fullcountry$fitCountry[[198]],model_CCREM_Fullcountry$fitCountry[[199]],model_CCREM_Fullcountry$fitCountry[[200]],model_CCREM_Fullcountry$fitCountry[[201]],model_CCREM_Fullcountry$fitCountry[[202]],model_CCREM_Fullcountry$fitCountry[[203]],model_CCREM_Fullcountry$fitCountry[[204]], model_CCREM_Fullcountry$fitCountry[[205]], model_CCREM_Fullcountry$fitCountry[[206]], model_CCREM_Fullcountry$fitCountry[[207]], model_CCREM_Fullcountry$fitCountry[[208]], model_CCREM_Fullcountry$fitCountry[[209]], model_CCREM_Fullcountry$fitCountry[[210]], model_CCREM_Fullcountry$fitCountry[[211]], model_CCREM_Fullcountry$fitCountry[[212]], model_CCREM_Fullcountry$fitCountry[[213]], model_CCREM_Fullcountry$fitCountry[[214]], model_CCREM_Fullcountry$fitCountry[[215]], model_CCREM_Fullcountry$fitCountry[[216]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(193:216)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


table_CCREM_Full[[10]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[217]],model_CCREM_Fullcountry$fitCountry[[218]],model_CCREM_Fullcountry$fitCountry[[219]],model_CCREM_Fullcountry$fitCountry[[220]],model_CCREM_Fullcountry$fitCountry[[221]],model_CCREM_Fullcountry$fitCountry[[222]],model_CCREM_Fullcountry$fitCountry[[223]],model_CCREM_Fullcountry$fitCountry[[224]],model_CCREM_Fullcountry$fitCountry[[225]],model_CCREM_Fullcountry$fitCountry[[226]],model_CCREM_Fullcountry$fitCountry[[227]],model_CCREM_Fullcountry$fitCountry[[228]], model_CCREM_Fullcountry$fitCountry[[229]], model_CCREM_Fullcountry$fitCountry[[230]], model_CCREM_Fullcountry$fitCountry[[231]], model_CCREM_Fullcountry$fitCountry[[232]], model_CCREM_Fullcountry$fitCountry[[233]], model_CCREM_Fullcountry$fitCountry[[234]], model_CCREM_Fullcountry$fitCountry[[235]], model_CCREM_Fullcountry$fitCountry[[236]], model_CCREM_Fullcountry$fitCountry[[237]], model_CCREM_Fullcountry$fitCountry[[238]], model_CCREM_Fullcountry$fitCountry[[239]], model_CCREM_Fullcountry$fitCountry[[240]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(217:240)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


table_CCREM_Full[[11]] <- htmlreg(list(
  model_CCREM_Fullcountry$fitCountry[[241]],model_CCREM_Fullcountry$fitCountry[[242]],model_CCREM_Fullcountry$fitCountry[[243]],model_CCREM_Fullcountry$fitCountry[[244]],model_CCREM_Fullcountry$fitCountry[[245]],model_CCREM_Fullcountry$fitCountry[[246]],model_CCREM_Fullcountry$fitCountry[[247]],model_CCREM_Fullcountry$fitCountry[[248]],model_CCREM_Fullcountry$fitCountry[[249]],model_CCREM_Fullcountry$fitCountry[[250]],model_CCREM_Fullcountry$fitCountry[[251]],model_CCREM_Fullcountry$fitCountry[[252]], model_CCREM_Fullcountry$fitCountry[[253]], model_CCREM_Fullcountry$fitCountry[[254]], model_CCREM_Fullcountry$fitCountry[[255]], model_CCREM_Fullcountry$fitCountry[[256]], model_CCREM_Fullcountry$fitCountry[[257]], model_CCREM_Fullcountry$fitCountry[[258]], model_CCREM_Fullcountry$fitCountry[[259]], model_CCREM_Fullcountry$fitCountry[[260]], model_CCREM_Fullcountry$fitCountry[[261]], model_CCREM_Fullcountry$fitCountry[[262]], model_CCREM_Fullcountry$fitCountry[[263]], model_CCREM_Fullcountry$fitCountry[[264]]), 
  custom.model.names = c(as.character(model_CCREM_Fullcountry$country[c(241:264)])), custom.coef.map = list("age_grp_centered" = "Age (centered)", "I(age_grp_centered^2)" = "Age (centered)^2", "I(age_grp_centered^3)" = "Age (centered)^3", "born_adult_centered" = "Year turned 18", "I(born_adult_centered^2)" = "Year turned 18 ^2", "I(born_adult_centered^3)" = "Year turned 18 ^3", "sex" = "Gender", "(Intercept)" = "Intercept"), caption = "")


save(table_CCREM_Full, file = paste0(wdShinyData,"html_list_CCREM_full.Rdata"))

